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THE PAST YEAR 


Por me 1983 has been a very happy year. ‘Bditing this newsletter has at times 

been a hair-raising effort: but it has always been great fun. I have Biot 
learnt so much about the PC 1500. I have even learnt - most of the tine - 
to keep my temper. Most importantly, I have made so many good friends, even 
though most of them are only known through correspondence - occasionally 

as voices on the telephone. rs am always amused by readers who presume ‘that 
all other readers have the same knowledge and interests as themselves. 

In fact subscribers are drawn from an incredibly wide variety of professions 
and beckgrounds. Army, navy, airforce, tle church, the law; pilots in the air 
and divers under the sea; professors and schoolboys; doctors, scientists, 
managers and engineers; sales architecture, insurance, surveying,banking and 
oil all make their contribution to a subscription list which at the last 
count extended to 23 countries. Xmas is the season of goodwill to all, 

and it would be mean and petty to exclude eve those who tear their newsletter 
up into little pieces and post them to me, ask questions which have 

already been answered, haggle over the sum of their subscriptions, send 

in programs which have not been debugged, or change their address with 
bewildering frequency. It is possible even to feel benevolent towards those 
who disagree with me on technical points, or whose sense of humour is not 
quite identical with my own. Nor must z forget all those Whose contribution 
has been less active - the silent majority - who tend to be merely names on. 
a list, a ‘label on an envelope. Gaaging your unspokm reactions has been not 
the least part of the fun.To each of you, known and unknown,wherever vou 


may be, let me take this opportunity to wish you 
A VERY HAPPY XMAS AND NEW YEAR! 
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SIGNALS 


JAN TRAYNOR has discovered the use of SHIFT/CLEAR. If you BREAK during 
the running of a program, turn to PRO mode, and then press either of 
the vertical cursor keys, you return normally to the line in which the 
BREAK occurred; in order to get the first or last line you have had to 
LIST them by line number. However, if you press SHIFT and then CLEAR, 
the use of these cursors reverts to normal. 


This is useful information. I had always wondered about the meaning cf 
the letters CA above the CLEAR key. Thanks. 


L.E.SIMONS has difficulty with page 130 of the Technical Reference Manual. 
DB corresponds to no listed mnemonic. And there is no listed op-code 
for &FA. 


DB could possibly be an abbreviation for "Double-Byte" - i.e. 2 bytes 
of data. &FA has me completely foxec. Nor can I make any sense of the 
subsequent comment: 

Returns to the address that data plus one is added to the “data written address” after 


storing the error code is stored in UH. 


You could try writing to SHARP (UK) in Manchester, but are not likely 
to get a useful reply. 


JAMES LOTHIAN suggests that it is possible to increase the available memory 
of the unexpanded PC 1500 by keying POKE 30821, 64,0 and then NEW, at 
the expense of the RESERVE area, giving an extra 197 bytes of program. 
Of course this would also wipe out the 7 butes of ROM information at the 
beginning of the Reserve area; though I have not yet discovered the real 
reason for the necessity for these. But surely you also need to POKE 
30823, 64,0 and the same for 30825. 


FRANK CDDS tells me | am wrong in my reply to CHRISTOPHER LEDSAM last month. 
There DOES exist a book which deals with Assembly Language in general, 
without reference to a specific chip. It is: 

"MICROPROCESSORS & MICROCOMPUTERS - Their Use and Programming" 
by Eric Huggins, Macmillan, paperback, £4.95.(1979) 


I now have this book, and find it as helpful as you describe. Only part 
of the book deals with Assembly Language, for a "Typical Computer". 

The rest relates language to microprocessor. It is not an easy subject, 
and needs intensive study; but the book is as clearly written as is 
humanly possible. Highly recommended to anyone who will take the time 
to study it. 


DAVID RIHOY hopes to convert me to his dislike of Hex, wonders why our programs 
do not make greater use of Labels (other than DEF labels). He points out 
that the renumbering of GOTOs and GOSUBs will no longer present a problem. 
Even if the GOTO is directed to an expression, GOTO STR$ (expression) 
would still find the Label. I.e., instead of 

10: GOTO ASC INKEYS 

then if INKEY$ is A 

65: line arrived at by GOTO. 
you could have: 

10: GOTO STRS(ASC INKEYS) 

and 65: "65'"'(line arrived at by GOTO) 

and this would not be affected by renumbering line 65.The label would 
still be found. 


You are right about labels: although I prefer to keep the same line 
number as the label, for sake of readability. As far as Hex is concerned, 
I do not like it either, but regard this asafault in myself to be 
corrected by effort. The chart on page 61, for instance, would become 
absolute nonsense in decimal. 
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3 ENTERTAINMENTS by C.J.NORTH 


"AMAZE" draws an infinite series of mazes, a new one each time. 


“THE VISITOR" - no comment. 
"TEASER" is a dot-changing problem: it explains itself when run. 


10 REM AMAZE ... Chris North 1983 

20 GOTO 400 

30 REM next cel! 

40 MCL, JCI, d=): 020+) M0 1,0924:Q60 :RETURN 
50 J=J-1:M(1,J)=3:Q50:RETURN 

60 MC) ,J=MC1,J)-2: 1141] 24C1,39=4:Q60 :RETURN 
70 I=]-1:M(1,J2=2:Q=0:RETURN a ees 
100 REM mein loop 

110 X=O0:BEEP 1,1,1 

120 IF M(I,J-1)<>OLET X=x46 

130 IF M¢I=1,J)<>0LET X=x+4 

140 IF M(1+1,J)<>0LET X=x+2 

150 IF M(1,J+1)<0LET X=x+1 

160 GOSUB 200+X:GOTO 110 


ON 

ON RND 260SUB 50,70;RETURN 
ON RND 3GO0SUB 40,50,60:RETURN 
ON RND 

ON RNO 


220 LINE (0,0)-(0,-H0) ,0,0 

Z30 FOR JS=1TO WiIF (MCA,J2=2)4(M(A,J)=4)LET T=J8WO2LINE (T,0)-(T,-HO),0,0 

240 NEXT J:GLOURSOR (0,-HO):SORGN :IF A=HGOTD 300 

250 FOR J=ITO W:IF M(A,J)>2LET T=J4WO:LINE (T-WO,0)~(T,0),0,0 

260 NEXT J:B=1:A=A4+1 

270 1=A;:J=B:Q=1 :RETURN 

300 REM Finish 

BIO X=RND (W-2)41:LINE (0,0)-(WO®(X-1),0):LINE (WO®X,0)—(WOtW,O): TEXT :LF 6:END 
400 REM initial ise 

410 CLEAR :RANDOM :H=20:W=20:HO=205/H:WO=205/W:DIM M(Ht1,W+1): TEXT :GRAPH :SORGV 
4920 FOR I=O0TO W+i:M(O,1)=1:M(H+1,1)=1:BEEP 1,1,1:NEXT 1 

430 FOR I=OTO H+ :M(1,0)=1:M¢1,W+1)=1 :BEEP 1,1,1:NEXT I 

440 X=RND (W-2)41:LINE (0,0)-(WO*(X-1),0):LINE (WORX,0)—(WOtW, 0) 

450 I=] :J=1 A=] :B=1:Q=0:M(1,J)=4:G0T0 100 


10 REM The Visitor ... Chris North 1963 

20 CLEAR :A=5:B=4:C=8:DIM A@(A,1)*80,8(8) ,D(B) ,O8(C)#B80:CLS :WAIT O:PRINT “ The Visitor 
30 FOR N=OTO 1:FOR M=OTO A:READ A@(M,N):BEEP 1,1,1:NEXT M:NEXT N 

(0 FOR N=1TO 13:READ X:FOR M=OTO C=1:X=INT (X/2):YSINT (X/16) :Z=X-Y*16:BEEP 1,1,1 

50 X@=STR@ Y4MID@ ("01 234567E9ABCDEF" ,2Z+1 , 1) :C@(7-M)=XO+CO(7-M)+X@:NEXT M:NEXT N:READ C@<C) 
60 FOR N-OTO B:READ 8(N) ,D(N) :BEEP 1,1,1:NEXT N:BEEP | 


o 


~ 
° 


CLS :GQURSOR 89:FDR N=-OTO 66:GPRINT 127; :EEEP 1,1,1:NEXT N:GCURSOR 93 

BO FOR N=ITO 10:READ X:V=8FO00+54X:FOR L=OTD 4:GPRINT 127-PEEK (V4L); :NEXT L:GPRINT 127; =NEXT N 
90 GOSUB I160:PAUSE :WAIT 15:FOR N©OTO C-1:GCURSOR O:GPRINT C®(N) :NEXT N:GOSUS 160 

100 WAIT 20:GQURSOR 23:GPRINT CO(C) :WAIT O:P=25:PAUSE 

110 FOR N&ITO A:P=P+1;GQURSOR P:GPRINT A@(N,O):NEXT N:IF P<BOGOTD 110 

120 P=62:GCURSOR P:GPRINT ''0000"; A#(O) :PAUSE 

130 FOR N=1TO A:P=F—1:GQURSOR P:GPRINT AS(N,1);:1F P<78GPRINT “IEIE00"; 

140 NEXT N:IF P>27G0TO 130 

150 GOQURSOR 27:GPRINT “000000000000000000000000000000" 

160 WAIT 20:GOURSOR O:GPRINT Ce(C-1) 

170 GOSUB I160:WAIT 15:FOR N=C-1TO OSTEP -1:GCURSOR O:GPRINT C#(N) :NEXT N;GOSUB 160:PAUSE :—ND 
180 PAUSE :FOR N=070 B:BEEP 1,B(N),D(N):NEXT N:RETURN ' 
200 DATA “037F43" 

210 DATA "“O00000037F 533020" 

220 DATA “OOO00063¥ 131018" 

Z30 DATA “003010131F 131018" 

240 DATA “003010131F 133020" 

250 DATA “ONONRN1 37F 430000" 

260 DATA "437F0300" 

270 DATA "2030537F 03000000" 

280 DATA '1810133F 63000000" 

230 DATA '1610131F 13103000" 

300 DATA “2030131F 13103000" 

310 DATA "0000437F 13300000" 

320 DATA 8&7E,87C,87- 678,878 ,8F8,8° 8,878 ,876,870 870,860,840 

330 DATA "3F2121000000000000000000" 

30 DATA 135,250, 120,280, 155,200,255, 140,180,250 104 
350 DATA 77,97,99,63,111,110,97,108,100, 115 
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100 REM TEASER ... Chris North 1863 
110 GOTO “A” 
120 REM get input 
130 CALL SE243:A®=INKEY® :RETURN 
150 REM sein prog. 
160 GOSUB 370:WAIT O:CURSOR 4:PRINT "Change... ROW "sy 
170 CURSOR 16:PRINT "?":GOSUB 130:CURSOR 16:PRINT A®; :M=VAL Ae 
180 CURSOR 21:PRINT "COL ?°:GOSUB 130:CURSOR 25:PRINT A®;:N=VAL At 
190 IF (MC 1)4(M>3)4(NC194+(N>3)GOSUB 350:G0TO 160 
IF A(M,N)<OGOSUB 340:GOTO 160 
A(M,N)=1 :K=K+1:GCURSOR O:GPRINT T1(1);"FFFFFF”;T1(2); "FFFFFF";T1(3):GOTO STR® (Mtl104N) 
REM reversals 
"LD" SACL, 29=-AC) 2) sACZ, 1) =AC2,1) sAC2,29=—A(2,2) :60T0 160 
"12" ACL, 1)=ACL,1)2AC1,39=-AC1,3) :GOTO 160 
“SACL, 29=—AC1 2) :AC2,39=-A(2,3) :A(2,2)=-AC2Z,2) :GOTO 160 
"21" 3ACL,1)=-AC1,1) :AC3,1)=A(3,1) :GOTO 160 
"Z2" ACL, 2)=AC1 2) sAC2, 19=A(2,1) 2A(2,3)=-A(2,3) 
A(3,2)=-A(3,2) :GOTO 160 
“Z3" sACL,3)=AC1 ,3) :A(3,3)=A(3,3) :G0T0 160 
"31" sAC2, 1)=-A(2,1) sAC3,2)=-A(3,2) sA(2,2)=AC2Z,2) :GOTO 160 
310 “32":A(3,1)=A(3,1) :A(3,3)=-A(3,3) :GOTO 160 
"33" A(2,39=-A(2,3) :A(3,2)=-A(3,2) :A(2,2)=-A(2Z,2) :GOTO 160 
330 REM errore 
:BEEP 2:PAUSE “Chenge dot to blank only”:CLS :RETURN 
:BEEP 2:PAUSE "Give proper positions 1-3":CLS :RETURN 
check for solution or failure 
:FOR M=1TO 3:FOR N=1TO 3:T=T+A(M,N) :NEXT N:NEXT M 
(T=7)#(A(2,2)=-1)CLS :GOSUB 420:BEEP 2:CURSOR 3:WAIT 200:PRINT “Got it in";K;" goes":8EEP 2:GOTO 600 
T=SCLS :BEEP 2:WAIT 200:PAUSE “Hard luck!":PRINT “You cent solve it now’ :BEEP 2:G0TD 600 
display metr ix 
N=ITO 3:T(N)=O:TI(N)=127:FOR M=ITO S:IF ACM,N)LET T(ND=T(ND+A(M,0): TI (ND=127-T(ND 
M:NEXT N:GCURSOR O:GPRINT T(1);0;0;0;T(2);0;0; 0; 1(3) :RETURN 
initielise 
CLEAR :RANDOM :WAIT O:DIM A(3,3),7(3),T1¢3) 
M=1TO 3:A(M,0)=2°(3#-3) :FOR N=1TD 3:A(M,N)=Z*#RND 2~3:NEXT N:NEXT M 
460 CURSOR C:PRINT "Instructions ?”:GOSUB 130:IF A®@="N"CLS :GOTD 160 
470 IF A@<>’ Y"BEEP 2:GOTD 460 
480 WAIT :PRINT “Press ENTER to step thru” 
430 PRINT “Solve @ 3x3 metrix":PRINT “ of random dots & bienks” 
500 WAIT O:GPRINT “490000004800000049" :CURSOR S:WAIT :PRINT “Looking like this” 
SIO PRINT "so thet dots eppear in al!":PRINT “ positions except centre” 
515 WAIT O:GPRINT "490000004 100000049" :CURSOR 3:WAIT :PRINT "Like this” 
520 PRINT “Fosition referred to ":PRINT " by row & column ...":PRINT “ e€.g. top right = 1 3” 
530 PRINT “You change dot to blank":PRINT " NOT blank to dot” 
S40 PRINT "When o dot is blankerl":PRINT " its neighbours reverse” 
S50 PRINT “ i.e. dot to blank":PRINT " and bisnk to dot":PRINT “Changing » corner” 
560 PRINT “ chenges 3 neighbours" :PRINT “Changing middie side”:PRINT “ changes 2 corners” 
570 PRINT “Chenging centre”:PRINT “ chenges 4 middie sides” 
580 PRINT “Try it & see whst happens!” 
590 WAIT O:PRINT “Repeat “; :C=7:G0TO 460 
600 WAIT O:PRINT “Another go ?":G0SUB 130:IF AS="Y"CLS :GOTD 110 
610 IF AS<>"N'BEEP 2:G0T0 600 


620 END . 


Be8SB8s8858 
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AN INTERESTING ERROR 


Line 210 of ANYBASE CONVERSION by GEORGE COOK (page 98) should be changed to: 
210: IF PEEK 40960<)> 192 GOTO 300 


Firstly let me say that the mistake is not the fault of the author, but 

of the editor, who was unable to resist the temptation to elaborate what was 
originally e perfectly viable program. In any cese, there may not be an error 
in the line, depending on where you were when you keyed it in! If the PC 1500 
was attached to the CE 150 at the time of keying in, and subseauently you ; 
detached it, the program runs OK: the error produced by having no printer is 
coped with by the ON ERROR GOTO statement. But if you keyed in the’ program 
when computer was not connected to printer, you will have produced a syntax 
error, which is not coped with. A ‘graphic’ instruction which is keyed in 
when writing a program, if the computer is not connected to the printer, 

does not appear as a 2-byte ‘Reserved Word', but as separate letters, thus 
giving ZRROR 1 , as here. 
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1) 
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4) 


5) 


6) 
7) 
8) 


9) 


10) 
11) 
12) 
13) 
14) 
15) 
16) 
17) 


18) 


19) 


20) 


QUIZ - HOW WELL DO YOU KNOW YOUR COMPUTER? 


QUESTIONS 


So what DOES it say on the back of 
your PC 1500? 


What are the locations of the 
SYSTEM POINTERS? 


And how do you wind back into 
the computer paper unlimited? 


Does it make any difference whether 


you start executing a program by RUN, 
DEF, or GOTO? 


How do you draw a circle? 
What is STATUS 5? 


When you key TIME, whet is displayed 
on the left - month/year/day/hour? 


The 2-byte codes for Reserved Words 
all start with 230 or 240 or 241, 
with one exception, What is it? 
Your ist byte of program is ..... 
How many bytes of Reserve are available? 
And of Reserve Template Area? 

Do you know the ASCII code for A ? 

And for the 6 "software keys''? 

And the cursor keys -up, down, left, right? 
(A=1)=0 


What does this mean? 


What are ERROR 4, ERROR 44, ERROR 6, 
ERROR 80, ERROR 11. ? 


Will the following line give SYNTAX ERROR? 
10: A=12..34..56.. 


ON (expression) GOTO '// ON ERROR GOTO // 
ON (expression) GOSUB // ON ERROR GOSUB. 


3 of these 4 statements are legal. 1 is not. 


Which? 


What is the maximum possible character size? 


ANSWERS 


Look and see. 


page 33. 


page 24 


page 135 of SHARP's 
Instruction Manual 


page 14 (this newsletter) 


page 3 


try it and see, 


page 28 


your computer will tell you. 
page 3 of SHARP's 
Instruction Manual. 

[as above] 


10: WAIT O: AS$=INKEYS: 
PRINT ASC A$: GOTO 10 


fas above] 


page 68 
SHARP's Instruction Manual, 
Page 145 


try it. 


Instruction Manual page 83 
or try it and see. 


page 42 of this, newsletter. 


IF YOU SCORE 100% on this quiz you know your computer better 


than I do! 
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HANGMAN 


The traditional game of guessing a word, a letter at a time, before the 
executioner triumphs. A vocabulary of 350 words is possible with 8X, or 
about 100 with 4K. Fill in lines 5002 to 5349 with your own words. If 


less than 350 words, , 


1: TEXT 
2:LF 12:CLEAR 
43:0N ERROR GOTO 
6a 


56:DIM A$C16):01N 


B$(16) 
6@: RANDOM 
65:GOSUB (Saaa+ 
RND 358) 


70: 2=3-C(LEN WS$)18 
> 


138:CSIZE 2 
13]: 22=3-2 
133:LF -6 


148:COLOR 3:LPRINT 


LEN WS 
141;LF S:GRAPH : 
CSIZE Z 


142:GLCURSGR (17-4 


*2Z2, -15+22): 
FOR F=1TO LEN 


WS?LPRINT "="; 


193: NEXT F 
158:FOR N=!TO LEN 
WS 


168: QS(N)=MIDS (Ws 


«MN; 1) 
189: Bs«(NJ=" “ 
208:NEXT N 
328: BEEP 2+3xK, 3g, 
3: 


304:GLCURSOR ¢Q, -3 


QB) 
395: INPUT “LETTER. 


we. tT 
. 94 


386: GLCURSOR (@, @) 


3106:K=] 

328:FOR N=!TO LEN 
ws 

348: 1F 1$=Q$C(N) 


GOSUB 1988:R=R 
+1: K=8: BS (N)=] 


Si: ASCN)="K"; 
GOTO 338 
398: iF R=LEN WS 
GOTO 428282 
480:NEXT N 
418: C=C+K 


428: 1F K>@GOSUB (2 


988+188*C) 


438: 1F C=7G0TO 328 


2) 
458:GOTO 32898 

1888: GLCURSOR (8, 

Q>: TEXT 
1885: COLOR 2 
1915:CSIZE 2 
1828:LCURSOR N 
1838:LPRINT I$ 
1935:LF -1 


1848: GRAPH 

1845:COLOR 1 

1858: RETURN 

212@:LINE (8, -18) 
-€215, 32), Q, 
1+2*(C=8),8B 

2195:GLCURSOR (@, 
B> 

2118: RETURN 

22@@:LINE (18, 38) 
-€33;, 70) 

2218:LINE (15, 38) 
- (38, 68) 

2226: LINE (48, 68) 
~ (68; 38) 

2230:LINE (48, 78) 
-¢€78, 32) 

2248: RETURN 

23@3:LINE (38, 38) 
-¢4Q, 198), Q; 
1,8 

2318: RETURN 

24@6:LINE (48, 158 
»- (68, 188)-¢ 
78, 188)-C 42, 
143) 

2418: RETURN 

2560: LINE (48, 188 
»-(€148, 198); 
B,1,8 

2518: RETURN 

2688:LINE (133, 18 
B)-(133, 148) 

2628: GLCURSOR (12 
3, 118) 

2638: 0$="0" 

2643:CS!IZE 4 

26523:LPRINT OS 

2668:CSIZE 3 

2679: RETURN 

2728: COLOR 3 

2705: BEEP 2, 188,2 


28 

2786: BEEP 1, 248, 2 
12} 2) 

2718: S$="k" 

2728: T$="¢" 


2738:CSIZE 1 
2735:FOR F=1TO 3 
2748:LINE (125, 13 
2)-(127; 134) 
) »1,3,8 
2758:LINE (135, 13 
2>-(137, 134) 
»1,3,8 
2768:LINE (138,13 
1)-(138, 127) 
2765:NEXT F 


STATUS 1 
1548 
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350 in line 65 must be altered accordingly. 


2778:ROTATE 1: 
GLCURSOR (12 
8; 124): 
LPRINT TS 
2788:ROTATE @ 
27938: COLOR ! 
2888:LINE (124, 11 
8)-€124, 63)- 
C114, 68>) 
2819:LINE (136, 13 
8)-¢€136, EQ)- 
(146, 68) 
2820:LINE (124, 75 
3-(€136, 75) 
2838:LINE (124, 11 
2)-¢€1i18, 118) 
2848:LINE (136, 11 
2)-€15@, 118> 
2858:GLCURSSR (1! 
B, 187) 
2852:LPRINT S$ 
2868: ELCURSOR (15 
9, 187) 
2862:LPRINT S$ 
2878: CSIZE 2 
2888: RETURN 
3888: GLCURSOR (A, 
2) 
3865:COLOR 3 
3018: TEXT 
3815:CSIZE Z 
3826:FOR N=1TC 
LEN WS 
3938: 1F BSCN)=" " 
LCURSOR N: 
LPRINT ASN) 
tLF =] 
3B40:NEXT N 
3962:GOTO 1 
4998:5OR F=1TC (7 
=C) 
4010:BEEP 1, 24a/F 
» SOXF 
48048:BEEP F, 12a/F 
» 1SO*F 
4858: NEXT F 
4@6@:LINE (5S, -5)- 
(218, 25), 2; 3 
B 
3 
4865: IF C=8GO0SUB 
2188 
4888:GOTO } 
50@1:WS="DIFFICUL 
T": RETURN 
5882 TO 5349:Ws=" 
5 . 
RETURN 
9358: WS="IMPOSSIB 
LE“: RETURN 
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PASS “THE PC” by Frank Odds 


[rules on next page] 


18:RANDON 

.28:2=STATUS 3-148 
+922+27: Y=INT 
(27256): 2=2-25 
6tY 


38:W=STATUS 3-984 
tUsINT (Li7256) 
tWeW-256%U 

48:GOSUB 19328 

SB8:B=STATUS 2-667 

68:FOR L=1T0 22 

78:POKE B, 141: B=B 
-?? 

88: RESTORE 

98:FOR K#]TO 4 

1AB:READ NS 

JJ8:FOR J=1TO 1) 
STEP 5 

128:C=ASC (MIDS (N 
oe ae 1)):60SUB 


125: peiescicaree ¢ 
MIDS (NS, J+}, 1 
>):GOSUB 1395 

Si a 1s 


135:C=ASC CMIDS (N 
$, J+2, 1)>: 
GOSUB 1395 

148:D=C:GOSUB 189 

145: CeASC (MIDS (N 
$, J+3,1)): 
GOSuUB 195 

156:D=)6*C:C=ASC ¢ 
MIDs (Ns, J+4, 1 
>: GOSUB 135 

oie i pega is 


. 16@:NEXT J 
178:NEXT K 
18BiNEXT L 
1es:D1n 8(18)¥52: 


ND 

198:POKE &, D:R=A-) 
: RETURN 

19S:C=C-46:1F Cos 
LET C=C-7 

196: RETURN 

268: "A" T=TINE : 
INPUT “HOW MAN 
Y PLAYERS? ";X 

21B:WAIT @:POKE 
788, RND 158: 
PRINT “PASS 
ROUNC" 

228:CALL &7758 

238: U=S883( TINE -T 
3 CLS 

248:BEEP S:wWAlT 28 
@: PRINT , SET R 


AS 


268:GOTO 388+)88+H 
488:WA]T 128:PRINT 
“Memorize thre 
@ numbers” 
418:L#5:U=)88-U: IF 
UCSBLET U=58 
438:WAIT U:M=RND ¢ 
1BCL >: JS=STRS 
mM: BEEP 2:PRINT 


n 

448: INPUT “What wa 
s it? “;K$ 

458: )F Ks=JsPAUSE 
"RIGHT! ":L=L+) 
:1F L<BLET U=U 
-18:GOTO 438 

468: 1F L=860TO 888 

47?8:PAUSE “WRONG! 
1T WAS";M:GOTO 
858 

S88:U=]NT (28-U): 
IF UC4LET U=4 


SIB:WAIT 128:PRINT 
“You have ";U; 
“ seconds..*: 
PRINT “to do a 
sum!": BEEP 2 
528:P#RND 26: 0°RND 
18:R=RND 15 
S38:WAIT @:M=TINE 
+GOTO (538+1e* 
RND 3) 
548:S=P+0-R: IF S=8 
.GOTO 528 
S45:PRINT STR# P+" 
+"4+STRO O4"~"4 
gg R;:GOTO 5 


2 
358:S=PsP:1F S=8 
GOTO 528 
SSS:PRINT STRs P+" 
squared”;: GOTO 
578 
568: S=PsQ: IF S=28 
GOTO 528 
565:PRINT STR P;: 
GPRINT “221488 
3422"; : PRINT 
STR 0; 
S78:PRINT “#=?";: Js 
#STRs S 
S7S:KS=J]NKEYS :1F 
Kse""J]F (TIME 
“MI ¥1E4<UGOTO 


575 

S88: 1F Ks=""PAUSE 
“TIME UP..": 
GOTO 5385 

598:PRINT K8;: 
INPUT Lg: IF LS 
Co" "LET Ke=Ks+ 
Ls 

SSi:1F KseJsCLs : 


SSS:PAUSC “IT WAS 
“;S:GOTO 858 

680: WAIT 128:PRINT 
“TYPING TEST” 

61B8:PRINT “Type th 
e letter that. 
."IPRINT “appe 
ors on the ser 
een.. "PRINT " 
FAST!I" 

628: 4A)1T 38:R=3 
638:P2RND SO: 1F P< 
65GOTO 638 

648:CLS :GCURSOR 
RND 149: BEEP 2 
tPRINT CHR# P: 
O=TINE 

65@:KS=]NKEYS :1F 
Kse""JF (TIME 
~OSJE4<RGOTO 


658 
668: 1F Ks=""PAUSE 
“TOO SLOW!”: 
GOTO 858 
665:1F ASC Ks<oP 
PRINT “WRONG!” 
*GOTO 858 
678:R#R-.25:1F RD 
-9GOTO 638 
688:GOTO 868 


7OB:WALT 128:PRINT - 


"Watch closely 
71BiU=INT (128-U): 

Kse"" 
735:0#8:P*RND 8 
728:FOR J=1TO 18 
725:F=RND 8 
738: ms(J>=a8C(F> 
735: 1F FePLET O=0+ 


} 
-748:NEXT J 


758: JS=STRS O: WAIT 
7CLS 


768: GCURSOR RND 94 
:FOR J=)TO 3: 
GPRINT MSCJ);; 
NEXT J 

778:WAIT 128: 
GPRINT ms<18) 

788:CLS :WAJT B: 
PRINT “HOW MAN 

";:GPRINT as 
(P); 

738: INPUT Ks 

7395:CLS : IF K#<>J8 
PAUSE “WRONG! 
THRE WERE"; 0: 
cOTO 8528 


838: GOTO 218 
858:CALL £7798:CLS 
>CURSOR }1: 

PRINT "“OUT!!* 

868:FOR J=)TO 28: 
CALL &77A2:FOR 
K=)TO S:NEXT K 
tNEXT J 


878: X=xK-):1F X<) 


GOTO 988 
888:GOTO 218 
386:BEEP S:WAJT 12 

B:PRINT “GAME 

OUCR!!": END 

1888:REMN "03)4DBF 
451481S5C", "6 
®@267FF 14304) 
31", "CA251C4 
15104151", “C 
tsa 

3° 
1818:REN "C415)Al 
315CAa115c", “C 
43SISEISISE1 
Si”, “C4151C4 
15103140", "0 
31400314003) 

40” 
1828:REN “4815Ce8 
267FF 143", "C 
415)CA251C4) 
Si", "C4151CA 
25104151", "C 
4151873437A2 

sc" 
1838:REN “FF)43FF 
1435£151", "5 
E15304151C4) 
51", “D314DD3 
14003140", "0 
3140031 40BF4 

31° 
1846:REM “DBI33AS 
13A7253A", "6 
8233BC229EC) 
47", "BS13R68 
233B5)3A", “C 
2A67A1 15003! 

4D" 
1858:REN "7253A68 
23393220", "C 
41518A143382 
3A", "BA143C8 
62DBC229", "3 
823AD8133AS) 


3A 

1@68:REM “BC22SEC 
147B513A", "6 
823385) 3A2AS 
47", "6823338 
23AD8133", "A 
$13AR08133A51 
3A" 


Do not sell this PDF !!! 


1878:REN “8R14338 
23A8A143", "C 
86208C2239382 
3A”, "DB133AS 
13808133", "A 
313A7253AR682 


33 

1888: REM "6823312 
723E8225", "3 
$23AD8133A51 
3A", "DBIZ3AS 
13A7253A", "6 
82339322004) 
51" 

189B8:REN "C41512A 
S47FF143", "3 
@23A68233FF) 
43", "4233AREC 
1473823A", "6 
823380229682 
3” 

11@8:REM “FF 14338 
23866233", "3 
3220BC2298C2 
23", "08320393 
22093220", "3 
82333823AEC} 
a?" 

313J8:REM "D8133A5 
13AD8i133", "A 
313A7253A682 
33", “BC229EC 
147B513AR", "6 
6233851 3AB42 
ai” 

1128:REN “DB133A5 
13A7253A", "6 
82333322004) 
51", "8A14338 
23A8AI43", "C 
862080229382 
2A" 

1138:REM “3823AFF 
14303140", “F 
F1433823AR3) 
36", "8132F i2 
829EB225", "3 
823A08i33AS1 
3R" 

1148:REM "AS13681 
32FD624D", "C 
#151031406A) 
$3", "3833A6A 
14382336", "A 
813A6A14303) 
4p" 

3158:REN “6A14338 
33A6A143", "B 
2136A813A6Al 
43", “D314D38 
23AF F143", "0 
3140FF 143382 


3A 

1)68:REN “7513AFF 
1438122F","A 
91365533AFF) 
43", "5123695 
13889343", "D 
62400415103) 
4p" 


1)78:REM “FF 14338 
23AAS136", "8 
132FA632FBC2 
23"; “EB225B85 
32229225", "2 
82297122F 83) 
36" 

1188:REM “C415103 
14D6A143", "3 
@33A6A14382) 
36", “ABI3ZA6A 
143N314D", "3 
@23AFF 143031 
40" 


[continued...... 


108 


1198:REM "9213€B9 
1365033£", "B 
815776160801 
57", "5914065 
14792136", “E 
829798162062 
ap" 

1208:REM “B@15725 
26280152", “E 
C1478513£391 
36", "BB133E8 
33603140", "3 
816203140681 
42" 

1218:REN “geaeeaea 
90000828", "B 
aeaecaceaeaa 
98", "aeeseaa 
ge0ee8e8", "E 
€24703140192 
3E" 

1938: POKE &7758, & 
AS; &77, &86, & 
18; BAS, &77, & 
87, &1A, BSS, & 
2A, 55, 808, & 
55, &8A, BAS, & 
2? 


1348: POKE &7768,%& 
89, 80D, 287, & 
FF, &89, 866, & 
58, V, BSA, W, & 
BS; 888, &AE, & 
77, &89, &394 

1958:POKE &77728, & 
AE, 877, 286, & 
14, BAE, &77,& 
87, BBE, 8E6, & 
6F, BAS, 877, & 
88, &DF, &AE, & 
?? 

1368:POKE &778B, & 
88, &B7, £28, & 
93, &35, &9A,U 


a Wy 255 
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“PASS THE PC™ — A GAME FOR CHRISTMAS 


This is a PC 1560 version of “pass the parcel". once the 
program has been initiated (by the RUN command) the computer is 
ready to play. There is no limit to the number of players, 
Press DEF A and the music starts. Pass the PC from person to 
person. Whoever is holding it when the music stops will be con 
fronted with one of four tests of memory, reaction times or both. 
If they fail the test, they're out! ‘The winner is the Player who 
is still ‘in' at the end. Beware; the tests get faster as the 
game goes on, 


Instructions, hints and warnings 


The game was developed on a machine with an 8k memory expan- 
sion. It cannot be run on an unexpanded pc 1596, but it can be 
run with 4k extra memory as described below. Lines 10-196 and 
1606-2914 are involved in setting up machine code routines to 
provide the melodies. The remaining lines are concerned with the 
actual game-playing and are written in basic, 


it is essential that the program should be CSAVEd as soon as 
it is written and before it is ram. Check particularly the 
accuracy of lines 1939-1998 - any errors here are sure to lead to 
acrash! Once the initiation program is started (it takes about 
1-2 min to run) it alters the program, 


The author of the program will accept no responsibility for 
PC 1500s that are dented or otherwise damaged by overexcited PC 
passers! 


To run the game with 4k memory expansion 


The game has to be set up in two sections, CSAVEd then 
CLOADed. For the first section, copy lines 19-196 plus Lines 
1998 to 2619, CSAVE “PART 1" at this stage. Now copy lines 
290-908 and CSAVE "PART 2". To operate the game, CLOAD "PART 1" 
and type RUN. The program will set up the machine code part. 
Now CLOAD the actual game-playing part (PART 2), which is started 
by DEP A as for she 8k version. 


2818: €$="08783578 
ABBB": FS" 2F 
#149417F ae": 
G$="8F E7860 


1988: POKE &77AB,& 
86, &SA, 268, & 
78, &6A, £40, & 
FD, &62, &25,& 


1978:POKE &279H, & 
48, 881, 840, & 
FF, &6A, 285, & 
BE, &E6, &6F,& 
4A, &B2, &BE, & 
E6, &6F, &68, & 


GO, @Fr, &2E,& 


3080": Hs=" 7F 


99 


19:" 


28: 


38: 
48: 


“CLEAR :O1N 
Q$(8)*8B, As(B> 
*8O: WAIT 186 
PRINT " *xKX 
28 QUESTIONS * 
¥** a 

X=RND (3) 
PAUSE "The abj 
ect: is “3 


58:9N XGOTO 68, 78 
» 88 

68:PRINT “ANIMAL 
‘GOTO 85 

28:PRINT “VEGETAB 
LE": GOTO 85 

88: 


85: 
3B: 


PRINT “MINERAL 


FOR K=1TO 26 
INPUT “What is 
your question 
2", O$¢B> 


88, £86, &6C,& 2F FPF 7F 88": 
a ee RETURN 
1998:POKE &2780,& 
93, 8E, 29a Status 1 
2688: R$="] B6CSF2A . 4295 


1388": Bs="19 
2270221888": 
C$="88142214 
8886": Ns="e9 
112A44a88B8" 


by Mike O'Regan 


188: ES=RIGHTS (Qs¢ 138: "C"IF LEFT$ (@ 
8), 1) $(B),89¢5"1S ] 
118: 1F E$="E"OR ES T A "THEN 158 


"20 QUESTIONS" 


="L"QOR Eg="S" 135: 1F K<3THEN 158 
GOSUB "C":GOTO 14@:BEEP 5:PRINT " 
125 RIGHT vou tank 
128:BEEP !:PAUSE " "3K3" guesses" 
NO" *WAIT 5S 
125:NEXT K 141:PRINT “! was t 


hinking of " 
142:A$(B)=RIGHTS ¢ 
Q$(8),LEN as¢@ 


126:PRINT “YOU HAU 
E HAD 28 QUEST 
10NS" 


127:PRINT "Qs you »-S) 
were unable to 143:FOR L=1TO LEN 
eee SPRINT "g AS(B): PRINT 
uess the objec MIDS (ASCH), L, 
t"sPRINT “I RE 1); =NEXT L: 


FUSE TO TELL Y PRINT :GOTO 18 


OUTS 158:BEEP 2:PAUSE “ 
128:GOTO 18 YES” 
168: RETURN 
STATUS j 


642 
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TANDY ''GAMES PACK" Software Review 


Whether playing BLACKJACK in the Yukon, or circling the moon in 

an eccentric orbit, this pack of 9 games is quite amusing, even if not 
quite as amusing as it sets out to be. Some games are too hard, others 
are too easy. Nevertheless it is still good value, and good fun. 
Essentially Anerican, both in terminology and facetiousness, only ? games 
(SKETCH and TICTACTOE) need the printer - though of course you will 

still need the CE 150 in order to load the cassette. 


TWISTER was the least interesting, a game of rearranging digits 

logically. BLACKJACK worked well, although | suspect the game is heavily 
CLOADED ~ sorry, loaded ~ in favour of the Bank. FOOTBALL of course 

is the American version: | did not stay with it long enough to find out 
what it was all about. It seemed quite clever: but the rules of American 
Football were not supplied. TASK FORCE is the equivalent of ''BATTLESHIPS", 


played against the computer.; Only 4 ships each: no visuals, and rather slow. 


SOUNDOFF is more amusing than appears from its description. Each of 

the function keys produces a different sound. First, symbols appear 

on the screen above a series of keys, withthe appropriate sound for the 
key: then the player has to match them. Not as easy as it seems, but 
not impossible. A good test of perception. 


HANGMAN is a quick game, for screen only. You may use the vocabulary of 
45 words, or test an opponent with your own words. Since insetion of . 
a letter already used does not produce a fault, | found it too easy. 

1t is much less elaborate than my own HANGMAN game; less interesting, 
but snappier. 


SKETCH could produce smoother results than my own SUPERSKETCH (p. 99 ), 
and works on a different principle. You can move the pen from point A 
to point B, blank: when satisfied, another key draws a stréight line between 


the chosen points. You can also draw an arc, or - with difficulty - a circle. 


MOON LANDING | found quite impossible. | never even acheived a 
Crash-Landing, let alone a decent one. Theoretically | am still in orbit, 
flying in ever-decreasing circles ....... 


TICTACTOE is American for NOUGHTS-AND-CROSSES. This was disappointing. 
The program has set responses: and an invariable first move. When the 
computer moved first, | drew every time: when ! moved first, |! inevitably 
won. Not a patch on the SIXPACK version of this game. | hope to borrow 
another PC 1500, and set the two programs playing against each other. 

We shall of course be the first (and only) publication to bring you 

our eyewitness reports of this incredibly exciting contest - perhaps the 
world's first NOUGHTS-AND-CROSSES OLYMPICS. 


PC 2 'GAMES PACK' is available from TANDY Computer Centres at £6.95 
All games fit into unexpanded machine. 


STOP PRESS: There were angry scenes during the closing stages 
of the NOUGHTS & CROSSES POCKET COMPUTER OLYMPICS aos hundreds 
of Mounted Police tried to prevent a solitary spectator from 
falling asleep. Finalists were TANDY CUSA)D, SI1XPACK (UK); 

ond your EDITOR (human) . FINAL SCORES: 


S]XPACK drew 3-3 asainst EDITOR, with 6 draws. 


TANDY lost 1-5 against EDITOR, with 6 draws. 
TANDY won 6-8 asainst SIXPACK, with 6 draws. 
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MINDBOGGLE CORNER 


Wrong again! This program was meant to produce (in a variety of colors) 
the design on the left. Owing to my usual carelessness in keying it in, 
the design on the right appeared instead. Find my simple mistake, and 
win the usual magnificent prize. Closing date January 15th. Don't hurry - 
get it right this time! It is the first correct entry opened that wins, 
not the first entry received. 


1: TEXT :LPRINT “ 
CJ ‘ Seen J 
>GRAPH : 
® LJ CJ GLCURSOR ¢@, 198 gz im CJ 
8): SORGN 


10: X=O: 20: K=40: Ot 
ON ERROR GOTO oo 


28:FOR F=ITO 15 ; e 
38:LINE (%, Y-(X+ PROBLE 


25; Y+25), @, RND 
4-1, B 

48:READ A: READ B: 
X=X+A: Y=Y+B - 

S@: NEXT F 

1889: DATA K;, @, @, K,K 
’ 8; Q; Ky 9, -K; K; 
a, QB; -K; K, 3] 

118:DATA -K; QB, 8, -K 
? -K, a, -K;, a; K, a 


OOOOO 
BITE) 
prose 


» 8, -K 
588: GLCURSOR (@, -3 

98):END ; 
MARKETPLACE ....TANDY's "TRS 80 News" for September contains a very useful 
alphabetical list of machinecode mnemonics - together with a numerical listing 
both in Hex and in Decimal. The accompanying article on their use is less 
impressive.......-+SIMON COX is preparing a booklet on how to get 96K ...... 
In Japan I hear that pens are available in a further 6 colours.[If any reader 
visits Japan, would he get me a couple of sets?]......KUMA have a list of 
software for PC 1500. The cassettes seem expensive, and requests for further 
information have met with no reply......TANDY ask m@ to point out that the 
DMP 200 daisywheel printer mentioned in October is correctly known as 
the DWP 210 .......ATLANTIC NORTHEAST have an interesting range of program modules. 


BINGO! 
1: INPUT “how man 9S: J=J+) 258:NEXT F 
y cards? ";S 188:NEXT B 268: X(C>=8 
S:OIM K(1S), x¢38 11Q:NEXTA . °278:C=C-1 
) 120: TEXT :LF 12: 288:1F C=@END 
16:FOR F=1TO S BEEP 7 238: GUIUO 188 
12: J=1:GOSUB 582 138:NEXT F S5@6:FOR G=!TO 15 


15:GRAPH :ROTATE 


135: INPUT "calling 


518:K(G)=RND 38 


1:CSIZE 4 speed(1-18) “ 528:NEXT G 
28:COLOR RNO 4-1 3T:TeC11-T)¥18 $38:CC=0:BEEP 1, 28 
2S:LINE (8, 8)-¢21 148:CSIZE 2:USING » 58 ' 


8, -358),,;,8 "HHH": Zsa" ¥" $4@:FOR H=1TO 15 
3B:LINE (78, 6)-(7 16@:FOR Y=1TO 38:xX 55@: IF KCH)<KCH-]) 
8, -358) CY)=Y:NEXT Y LET D=KC(H):KCH 
48:LINE (148, 89-¢ 178;:C=38 )=KCH-1):KCH-] 
148, -35@) 188:R=RND C 9=0:CC=1 
S8:FOR V=1TO 4: 18S5:BEEP 1,RND 255 $60: IF K¢(H)=KCH-}) 
LINE (8, -78*U> +58 LET KCH)=RND 39 


~(€218, -78%U): 198:WAIT 118-C+T: @:CC=1 

NEXT VU PRINT 2$;XCR); 570:NEXT H 
68:FOR A=8TO 4 2s $88:1F CC=1GOTO 53 
78:FOR B=2TO 208:LF -1 rs) 

STEP -1 218:LPRINT XC(RD; 590: RETURN 
88:GLCURSOR (78*B 220:LF 1 

+28, ~7B*A> 238:FOR F=RTO C-} STATUS 1#735 


9@:LPRINT K(J) 


248: XCF )=XCF +1) 
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GOLF - the rules 


This fascinating game requires a keen eye, and steady nerve. RUN will 
design the hole you must play, with all the usual hazards. For a new hole, 
key DEF N. For another player to play the same hole, key DEF A. The stroke 
is played by pressing the number key for the club (keep your finger on 

it for half a second until you hear the BEEP). Details and Rules:- 


YOU MUST USE THE APPROPRIATE CLUB FOR THE TYPE OF GROUND WHERE YOUR BALL LIES. 


DRIVE OFF with 1 or 2 club. No. 1 is used also for PUTTING on the GREEN. 
The FAIRWAY is GREEN: use no.3 

WHITE is the ROUGH: use no.5 

VERY ROUGH is hatched GREEN, use no.7 

BLACK marks almost impenetrable WOODS or thickets: use no.8 

BLUE is for PONDS AND STREAMS: see "HAZARDS" below. 

RED is the color of BUNKERS and sandpits: no. 9 is required. 


NOTE WELL that the club you use alters the distance the ball travels, by 

5%, multiplied by the number of your club, of the distance you choose. 

Thus if you entered a force of "200" , with a no.3 club, you would lose 

3 x 5% of 200, and your ball would have a travel of 170 yards only. 300 is maximum. 


ANGLE of 0° is straight up tle course. Enter angles to the right as plus; 
angles to left as minus. If you go off the paper, you are still on the 
course: play from the imaginary point where you ares (Use no.7) 


The vertical LENGTH of each hole is marked beside the hole. The direction 

of the WIND appears on the screen, and as a flag at the top right-hand 

corner of the GREEN. The force of the WIND is considerable. It varies 

from second to second, and is shown on the screen after you have entered 

FORCE and ANGLE. The upper and lower limits of its force vary also. 

As the wind-force goes up and down, pick your moment to key the club you are 

using (Don't forget the delay) . 3nd player cannot profit by your mistakes: 

a new wind direction will be set for him hy DEF A, after you finish playing the hole. 


HANDICAPS range from 0 to 15. Your HANDICAP does not affect your score. 
It only affects the number of seconds ( from 15 to 45) which you have 


available in which to play, thus limiting your opportunity to pick a suitable 
wind-force. Since every hole is new, PAR for each hole cannot be given: 

but the average is 4. Your editor has a handicap of 5, and has - very occasionally - 
gone round in 72. Novices are advised to start with HANDICAP 15. 


HAZARDS and PENALTIES. - "FORCE" more than 300: excess is deducted from stroke. 
Using the wrong club accidentally - PENALTY 2 strokes. (Opponents option: start again) 
Using wrong club deliberately - barred for life! 
WATER: you must 'lift' the ball, (play it out with no.1l) to the bank furthest 
from the hole. PENALTY: 2 strokes. 
BUNKERS: Built-in error of radius ‘up to 10 from landing-point. (no.9) 
WOODS: 1 chance in 3 of accurate shot: otherwise random distance_orrandom angle. 
Driving over woods: use no.2 instead of no.1. Otherwise 2 strokes penalty. 
EXCEEDING TIME LIMIT: penalty 2 strokes, but carry on. 
Decisions as to where a ball lies are entirely visual. In case of doubt or 
dispute the answer is simple: go by the wind, which is taken to blow it onwards 
or back the necessary fraction according to wind direction. Estimates of angle 
and distance must also be only visual. No rulers or protractors:! 
{It can very occasionally happen that a hole is too long for a 2nd player 
to return to the tee: in this case the hole must be abandoned. ° 
About once in 20 holes] 


"HOLE IN ONE!" - send it in! The first received will win a small prize. 


[program overleaf --- 
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1: "N"GRAPH : 
GLCURSOR (a, -T 
T-28):SORGN : 
GLCURSOR (2, -S 
88): SORGN 

2:CLEAR :U=64: 
RaANDON 

3: PPs2"G6": GOSUB 
1582 

S: GRAPH ;RANDON 

18:T=)8+RND 188 

12:GOSU8 3811 

28:LISRND 188:R1= 
L1+35 

25: 1F (LI<2)90R CR 
1>2@8>GOTO 28 

26: 1F (LIDTOOR RI 
<TGOTO 28 


38:L2=RND 188:R2= 
L2+35 
35:1F (L2¢2)0R (R 
2>288)GOTO 328 
36: 1F L2>RIOR R2< 
LiGOTO 38 
4@:L3=RND 198:R3= 
L3+35 
4S: 1F (L3¢290R (CR 
3>288)G0TO 48 
46: 1F L3>R20R R3< 
L2GOTO 48 
S@:G1=RNO 188:G2= 
G1+48 
SS: 1F GIOR3OR G2< 
L360TO S@ 
38: TT=RND 38 
S3:FOR 2=1TO 3 
18@:LINE ¢(T, -TT)-¢ 
T+3, -TT+3>,8,3 
»8 
181:NEXT Z 
115;GOSUB 398: 
GOSUB 781+J2 
11B:COLOR 2 
119:FOR 22=L1TO RI 
STEP 4 
128:LINE (22, 18)-¢ 
22,01),6,2 
i21:NEXT 22 
125:022013+02 
123:FOR Z2=L2TO R2 
STEP 4 
I3B:LINE (¢22,0))-¢ 
22,02),4,2 
1Z1:NEXT 22 
135:03=02+03 
133:FOR 22@L3TO R3 
STEP 4 
148:LINE (22,02)-<¢ 
22, 03>, 2, 2 
141:NEXT 22 
147:G3=D03+28+RND 2 
5: G4=48+G63 
148:LINE (G)},G63)-¢ 
G2, G4), 3, 3,8 
143:FOR 22=G3T0 G4 
STEP S 
iSB:LINE (GJ), 22)-¢ 
G2, 2Z),2,2 
ISI:NEXT 22 
168:H1=2G1+RND 38:H 
2=G3+RND 32 
164:FOR 22=1TO 5 
16S:LINE (HJ,H2)-¢ 
H1+7,H2+7),8,3 


8 
’ 
166:NEXT 22 
168:GOSU8 Seas 
163:0xX=G62+18: IF Ox 
>IGBLET Ox=8 
178:00=H2+TT: 
GLCURSOR (Dx,H 
2> 
I7\:LPRINT OO 
198:GOSUB s@B 
nets mnemme (T, -T 
> 
28S:SEEP 2:WAIT 228 
@:PRINT “WIND= 
wen 
: 


GOLF - the program 


eee "ANGLE " 


212: iF X<BLET X=36 
@-ABS xX 
220: REUE “FORCE “ 


225: 1F Y>2SSLET y= 
688-Y 
238:S1=Y*SIN xX 
248:S2=Y*COS x 
242: 1F C=@8GOTO 246 
244:RLINE (8, 8)-¢8 
’ 322), 3 
246:USING "#HHHHHE 


248:CcOsuB i228 

249: USING 

aurea CB, 8)-«S 
>, &, B: iC=C+ 


251: FOR XX=1TO 7 
253:RLINE (8, 6)=<¢- 
1,71), 8,8,8 

254:NEXT XxX 

256:RLINE (8, @)-(8 
»7328),9 

268:GOTO 218 

S@8:"A":GLCURSOR ¢ 
T, -TT):c=8 

S@1:PL=PL+1:U=64:u 
2735 


S82:GOSUB 1582 
50S: Ja3:K=28 
$18:8=B+1: IF 853 
LET 8=8 
$!5:GOSuB 3811 
$1?:GOSuB sea 
$28:GOTO 219 
788:01=25+RNO 118: 
02=25+RNO 118: 
03=25+RND 118: 
RETURN 
7A2:N1l2484RND 348: 
02=48+RND 148: 
03=38+RND 128: 
RETURN 
888:GLCURSOR (G2,6 
4) 
818:Wl=2SESIN W 
812:W2=253COS u 
BIS:RLINE (8, B>-cu 
1,W2),1,8 
821:RLINE (8, 8)-<@ 
, -38) 


848:GLCURSOR (T, -T 
T) 


858: RETURN 
998: J2=2¢¢(RND 2)-3 
: RETURN 
999: Ji=(RNO 3)=2: 
RETURN 
1888: BB=! 8: GOSUB 
998:n=J2 
1818; as="a" 
IBIS: TINE =a 
1828: A=RND U: The 
TIME :Th=Th¥ 
164 
1925: BG=68B+< CRND 
3)-1)>3n 
1838:WAIT A 
1848: AS=1NKEYS 
1B4S:AR=UAL At 
1846: AR=RA2 
1855: PRINT HP 3h; 
; 8B: 022u 
241: iF U2>35 
LET Y2=8:ysy 
72 
1868: IF AA>eaBEEP 
1:GOSUS 2888 
:PRINT Y: 
GOTO 1888 
1862: 1F CABS BBK 
LET N=-] 
1863: 1F ABS BBCI 
LET m=1 
1864; J=1+RNO 8: Ke 
14+RND I! 
1966: 1F TM>HCBEEP 
7:GOTO 1815 


1878:GOTO 1828 

1888: RETURN 

1582: HC=14:HP=@: 
INPUT “HAND! 
CaP="; HP: HC= 
HC+3tHP:1F H 
P>ISLET HC=) 
ss 


1583: RETURN 
2888: 1F AADBLET Y 
=¥=CY*¥ARs 1B) 
2085: 1F As="g" 
GOSUB 68228 
2818:S1=YtSIN xX 
2828:S2=YtCOS x 
2848:S)=S1+¢SIN W 
BBS 188) 
2658: $2=S2+<(COS W 
*BBSY7 188) 
2878: 1F ast’9" LET 
$1381-18+RNO 
19:52=$2-18+ 
RND 139 
2888: RETURN 
3811:WW=RND 3628 
3812: W=WW+188 
3813: 1F W>36@LET 
W-H-3628 
3814:BEEP 2:WAIT 
168:PRINT “WwW 
IND="jup" 
HANDICAPS"; 
P:WAlT 
3824: RETURN 
S@88:CL=(RNO 18)- 
1:1F CL? 
GOTO $838 
3681: 1F CLO3LET C 


L=3 

5@8S:FOR BU=8TO 3 
STEP 3 

S81B:LINE (G6)-8U, 
G3-B8U)=(b62+8 

G4+8U), 1,C 

L,38 

3828: NEXT BU 

3838: GOTO 5188 

$188: U1=8:U2=61+1 
S:U3=64+28- 
RNO 11: U4=G4 
+58 

3185: IF U2>1@8LET 
UI=RND 88 

5128:CL=(RND 6)-1 
> 1F CL>3GOTO 
3158 

3148: GOSUB SSe8 

$358: U1=62-15: U2= 
215: U3=64+28 
-RND 1}. 

$1285: IF UIC i B@LET 
U2=U2-RND 88 

5168: Chea 6)-1 


caro 
5288 
5!78:GOsUuB 5988 
$298: U1=8:U2=G1-2 
B+*RND 11:U3= 
G3-RND S:uUd= 
G4+RND 3 
5285: 1F U2>8@LET 
Ul=RNO 68 
$2198: CL=(RND 8254 
+ IF CL>3G0TO 


5258 

$238: GOSUB $988 

5258: U1=62+28: U2= 
215: U3«G3- 
RNO 9:U4=64- 
S+RNO 14 

S2SS: IF U1<148LET 
U2=U2-RND 65 

S268:CL=(RND 6)-1 
-1F CL>3G0TO 
5388 

$278: eae 53988 

S388: ye 2=GI+1 

3*5:U4 

263-12 
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5318:CL*=(RND 6)-1 
+ 1F CL>z60TO 
$358 

$348: COSUB SS8a 

$35: U}-G2-15;U2= 
215: U4=63-12 

$368:CL=(RND 6)-1 
2 1F CL>360TO 
$428 

$378:COSUB 53948 

5408; U1~(03--02>=6 
@):Y2=(03-02 
¢68) 

S418:UI-ZRND ¢(.5L 
3):U2=L3-RND 
15:U3=(03-68 
d*U1402"N2-.uU 
4203 

S42A;:CLeCRND 53-1 
‘IF CL>350TO 
545A 

5438: COSUB 53s3a8 

5458:U]2R3"RND 15 
?U2=215-RND 
€€215-R3)72) 

5468: CL=(RND 6)-1 
:{F CL>360TO 
$Seo 

$478: COSUB 53982 

5508: RETURN 

5908; 1F U2-Uli=u4 
*U3LET CE=tu 
2-U1)72:c0fo0 
$93a 

5918: CE2(U4~-U3)72 

5938:FOR Fee@to (Cc 
E-2)STEP 3 

$932: 1F CLeiLef Cc 
N=8: COTO 534 
a 


5935: CNe°RND 8B 

SS@A. LINE CUI4F,U 
3+F )=(U2-F,U 
4-F), CN, CL,8 

5958: NEXT F 

5968: RETURN 

6828: 27=RND 3 

6038: 1F 2=1LET x= 
RND 368 

6048: 1F Z*2LET y= 
RND (2¥Y) 

6858: RETURN 


STATUS |! 
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"PROCESSION"! by John M.Kerr 


: RTLCD. DEMONST RATION 
a sont &7752,&48,&76, &4A, &40, 458,477, &5A, 451, £68, &77, 456A, &4C, 445,453 
39: POKE 87768, 465,453,605, &53, 467,453,462, 4FD, &62, 425,443, 4FD, 468,425 
49: POKE &776E ,&S3,&08, GBA, &6A, &4E , BBE, 477,876, 465, &F1, 43,465, 555,492 
SAB: Ag="7FSCICIC7F4EPCHC"s BS="183P7A787E3EPCPC": C="4C2E1F181B1F 2E4C 
68: WAIT fz FOR N=1 TO 13: GPRINT @Z(RND 3),8,;2 NEXT N 
78: IF INKEYZ="" GOTO 7p ; 
88: CALL 47752: BEEP 1,5f+RND 58,29: GOTO 7f 
99: REM PRESS ANY KEY WHEN THE DISPLAY APPEARS 


PC-1500 LCD ROTATE RIGHT. 


addr opcode label instruction comment 

7752 48 76 RTLCD LDI XH, &76 3; Set up pointers 
7754 4A 4C LOI X&L,&4C 3 to display area 
7756 58 77 LOI YH,&77 ; 

7758 SA 51 LDI YL,&51 H 

775A 68 77 LDI UH,&77 3 

77SC 6A 4C LOI UL,&4C ; 

775€ 4S LIN xX 3; Use addresses 
775F 53 SDE Y 3; V74E to 7751 
7760 6S LIN U > as temporary 
7761 53 SOE Y ; stores, for the 
7762 os LDA (x) 3; last two bytes 
7763 53 SOE. «OY ; in each half 
7764 67 LOE «COU 3; of the display 
7765 $3 SDE Y ; 

7766 62 DEC =U ; 

7767 FD 62 AGAIN DEC UH ; Block transfer 
7769 25 LDA (u) 3 Of display bytes 
776A 43 SDE xX 3; in sections 1-3 
7768 FD 60 INC UH 3; and 2-4 

776D 25 LDA (U) 3; (76 byte pairs) 
776E 53° SDE CY ; 

776F 88 OA LOP AGAIN H 

7771 6A 4E LDI UL,&4E > Point to saved 
7773 BE 77 76 SIP EXTRA 3 bytes & move 
7776 65 : EXTRA LIN JU. 3; them into places 
7777 F1 AEX ; Two of these must 
7778 43 SDE xX ; have hex digits 
7779 65 LIN U 3; exchanged, to 
777A 53 SDE Y 3; move into other 
7778 9A RTN ; half of display 


Length: 42 bytes. 

Timing: 4221 cycles, or approx. 3} milliseconds @ 1+3MHz. 

As it stands, this routine is not. relocatable, and must be dxecuted 
from address &7752. The four bytes preceding this address are used 
as working space by the program, 

‘RTLCD occupies the RAM area normally reserved for fixed memories PZ, 


Q¢ and Rg. 


[This program is worth serious study by anyone trying to learn 
about machine-code. However the demonstration program at the top 
of the page works whether you understand it or not, and will amuse 
children who are very young. Press any key to execute the program] 
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al OT 
KS PROGRAM FOR THE SHARP 


PC-I500 POCKET COMPUTER... 


WHAT IS EASI-—ONE! 


Six programs rolled into ONE! Always in your machine and always 
available to solve hundreds of problems without the effort of having 
to load from tape each time! EASI-ONE! incorporates a calendar/alara 
clock, an electronic notepad, a unit conversion facility, a simple, 
but powerful text editor, statistics and forecasting facilities - and 
an electronic spreadsheet calculator. 


Each of the program ‘modules* is selected by a single key-press from a 


graphicse-display menu — and each can be cleared when you have finished 


with it. 
THE SAME TIME! ! 


ALARM 

Combined with an easy-to-read cloct & 
calendar ( astosatically displayed oa 
power-up), the ALARN can be set for op 
to 99 diferent tiees. At the set tiees, 
the alara will soond and a sessage 
(pre-set by you) will be displayed. 
NOTEPAD 
Used as a casual scratch pad or an 
address/telephone index, the NOTEPAD can 
hold up to 99 lines of 23 characters - 
about 400 words. MOTEPAD is equipped 
with a ‘Find’ facility to locate entries 
rapidly. 


NO 


& handy text editor with line 
insert /delete facilities, word 
carry-over to ext line, selective 
printing of all or part cf document and 
other easy-to-use facilities. TEXT can 
handle 80 lines of 36 characters (9% 
with the CE-16) 16K sodule) - nearly 500 
words. Can link in with MOTEPAD to 
transfer MOTEPAD lines to TEIT (nases, 
addresses etc.) Ideal for eesos, 
inforsal letters etc., using the CE-150 
printer. 


What equipsent does EAST-DNE! ? 
4) Sharp = =PC-1500 «or = Tandy =PC-2 Pocket 
cosputer. 
1 Either BK or 16K RAK sodule. 
4 CE-1% Printer/Cassette interface. 
t Compatible cassette recorder. 


Designed for Pocket Coast ers! 

“OME! 18 80 look-alite progras adapted froe 
other sicros. It is specifically designed for the 
pocket computer with its ability to retaie 
prograss and data. For the big applications, 


you'll want to use the other prograas in the 
EASI~range - EASI-CALC, EASI-TREMD, EASI-FILE and 


EASI-CASH, But for al] those day-to-day” 


applications, EASI-OME! is the ONE!, 
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AND YOU CAN HAVE ALL SIX MODULES SET UP IN YOUR MACHINE AT 


hb CONVERT 
Ce 


& handy unit conversion facility alsays 
at your fingertips. Miles to kilosetres, 
dollars to yen - enter your own choices 
(up to 99 of thea) and CONVERT will 
aluays be there for instant use. 


STaAaTs 

‘Rapidly calculates total, average & 
Standard deviation for each of two 
coluans of data that you enter, Using 
linear regression techniques, STATS can 
also attest to find a relationship 
between the teo sets of data (uith 
linear, exponential or root 
relationships) which can then be used 
for forecasting. 

CALC 

fm electronic spreadsheet calculator - 
idea] for solving the ‘what-if’ type of 
problea, Up to 110 cells available (over 
400 with the 16K sodule), Can accept 
cosple: forsulae up to [6 characters 
long e.g. BSS(AS-A2812)). Can handle 
Boolean logic equations. Uses eichine 
code routines for speed. Data fros 
either rows or coluans can be soved over 
to STATS for analysis. 


Other features in each eodule includei- ‘browse’ 
facility, hard-copy printout, rapid soveaent to 
beginning of end of sodule & meseric rounding of 
displayed figures. 


WHAT" S IN THE 


EASI-—-ONE! PACKAGE? 


EASI-DME! coses to you in the fora of a 


Gate-quality progres tape and a So-page user's 


sanca) with a rapid reference section, EASI-OE' 
costs £24.95 (incl. WAT) and is available froe 
your local dealer or direct froa the sole UK 
distributors: 


Eltan Electronics, FREEPOST ino staep required), 
1] Bury New Road, Prestwich, Manchester 25 617 


Telephone 061-798 7613 (24-hour service) 


